home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo Applications CD / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / Personal Press 2.0 / PPPouch / Additions / Edit Menu Shortcuts / Paste / Paste next >
Text File  |  1992-06-08  |  691b  |  42 lines
  1. on startup
  2. global bailout
  3.  
  4. checkTextToolIsOn
  5. if bailout = "false" then
  6. Paste
  7. end if
  8. end startup
  9.  
  10. on help
  11.  
  12. put  dialog (preload, 128) into thedialog
  13. put "---a\0" into item2
  14. put "---a\1" into item3
  15. put "---a\2" into item4
  16.  
  17.  
  18. repeat forever
  19. get dialog(display, thedialog)
  20. if (it = 1) then exit repeat
  21. end repeat
  22. get dialog(dispose, thedialog)
  23.  
  24. end help
  25.  
  26. on checkTextToolIsOn
  27. global bailout
  28.  
  29. put "true" into bailout
  30.  
  31. if toolmode = "TextTool" then
  32. if currentStoryNumber() = "none" then
  33. answer "The text cursor must be blinking in a story or a range of text must be selected."
  34. else
  35. put "false" into bailout
  36. end if
  37. else
  38. put "false" into bailout
  39. end if
  40. end checkTextToolIsOn
  41.  
  42.     X}<BÏ